PC Plus SuperCD (UK) 1995 March

home *** CD-ROM | disk | FTP | other *** search

/ PC Plus SuperCD (UK) 1995 March / PC Plus Super CD (Issue 101) (March 1995).iso / sharewar / vbaddon / vbfiles / ftoolbox.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1994-09-06 | 11.1 KB | 338 lines

VERSION 2.00 Begin Form ftoolbox BackColor = &H0080FFFF& Caption = "Floating Controls" ClientHeight = 5115 ClientLeft = 300 ClientTop = 1440 ClientWidth = 6030 Height = 5580 Left = 210 LinkTopic = "Form2" ScaleHeight = 5115 ScaleWidth = 6030 Top = 1065 Width = 6210 Begin PictureBox Picture4 BackColor = &H00C0C0C0& Height = 1380 Left = 3675 ScaleHeight = 1185 ScaleWidth = 2085 TabIndex = 12 Top = 3465 Width = 2115 Begin vsInForm VSInForm3 BarColor = &H00008080& BarColorInactive= &H00008080& BarHeight = 11 CustomFrame = -1 'True FrameWidth = 1 Left = 315 PictLeft0 = FTOOLBOX.FRX:0000 Top = 660 End Begin vsViewPort vsViewPort3 BackColor = &H00808080& Height = 960 Left = 105 Top = 105 VirtualHeight = 0 VirtualWidth = 3270 Width = 1905 Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 435 Index = 5 Left = 105 Picture = FTOOLBOX.FRX:00CA ScaleHeight = 435 ScaleWidth = 435 TabIndex = 17 Top = 105 Width = 435 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 1 Left = 735 Picture = FTOOLBOX.FRX:03CC ScaleHeight = 540 ScaleWidth = 540 TabIndex = 16 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 2 Left = 1365 Picture = FTOOLBOX.FRX:06CE ScaleHeight = 540 ScaleWidth = 540 TabIndex = 15 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 3 Left = 1995 Picture = FTOOLBOX.FRX:09D0 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 14 Top = 105 Width = 540 End Begin PictureBox Picture2 BackColor = &H00808080& BorderStyle = 0 'None Height = 540 Index = 4 Left = 2625 Picture = FTOOLBOX.FRX:0CD2 ScaleHeight = 540 ScaleWidth = 540 TabIndex = 13 Top = 105 Width = 540 End End End Begin PictureBox Picture1 Height = 2850 Index = 1 Left = 2520 Picture = FTOOLBOX.FRX:0FD4 ScaleHeight = 2415 ScaleWidth = 3030 TabIndex = 11 Top = 210 Width = 3270 Begin vsInForm VSInForm1 BarColor = &H00000080& BarColorInactive= &H00000080& BarHeight = 13 BarStyle = 2 'NoBorder ButtonsLeft = 2 '2 CapAlign = 1 'Left Center CapColor = &H00FFFFFF& CapColorInactive= &H00FFFFFF& CustomFrame = -1 'True FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False FrameColor = &H00C0C0C0& FrameColorInactive= &H00C0C0C0& FrameStyle = 4 'Raised Frame FrameWidth = 8 Index = 1 Left = 120 PictLeft0 = FTOOLBOX.FRX:4D8A PictLeft1 = FTOOLBOX.FRX:4E54 Top = 435 End End Begin PictureBox Picture3 BackColor = &H00C0C0C0& Height = 3270 Left = 105 ScaleHeight = 2790 ScaleWidth = 2190 TabIndex = 2 Top = 210 Width = 2220 Begin ComboBox Combo1 Height = 300 Index = 3 Left = 1155 Style = 2 'Dropdown List TabIndex = 10 Top = 945 Width = 960 End Begin ComboBox Combo1 Height = 300 Index = 2 Left = 105 Style = 2 'Dropdown List TabIndex = 9 Top = 945 Width = 960 End Begin ComboBox Combo1 Height = 300 Index = 1 Left = 105 Style = 2 'Dropdown List TabIndex = 8 Top = 525 Width = 2010 End Begin vsInForm VSInForm1 BarColor = &H00808000& BarColorInactive= &H00808000& BarHeight = 30 ButtonsLeft = 0 '0 ButtonsRight = 1 '1 CapColor = &H00FFFFFF& CapColorInactive= &H00FFFFFF& CapMultiLine = -1 'True Caption = "Rollup" CustomFrame = -1 'True FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False FrameColor = &H00C0C0C0& FrameColorInactive= &H00C0C0C0& FrameCorners = 0 'False FrameSizing = 0 'None FrameWidth = 1 Index = 0 Left = 705 PictLeft0 = FTOOLBOX.FRX:4F1E PictLeft1 = FTOOLBOX.FRX:4FE8 PictRight0 = FTOOLBOX.FRX:50B2 Top = -90 End Begin ComboBox Combo1 Height = 300 Index = 0 Left = 105 Style = 2 'Dropdown List TabIndex = 7 Top = 120 Width = 2010 End Begin CommandButton Command1 Caption = "Save" Height = 345 Index = 3 Left = 1155 TabIndex = 6 Top = 1890 Width = 960 End Begin CommandButton Command1 Caption = "Text" Height = 345 Index = 2 Left = 120 TabIndex = 5 Top = 1890 Width = 1050 End Begin CommandButton Command1 Caption = "Paragraph" Height = 345 Index = 1 Left = 105 TabIndex = 4 Top = 1470 Width = 1995 End Begin CommandButton Command1 Caption = "Apply" Height = 345 Index = 0 Left = 105 TabIndex = 3 Top = 2310 Width = 1995 End End Begin vsInForm VSInForm2 BarHeight = 15 ButtonsRight = 3 '3 CapMultiLine = -1 'True Caption = "Custom Borders" FrameStyle = 4 'Raised Frame Index = 0 Left = 2100 PictLeft0 = FTOOLBOX.FRX:5212 PictRight0 = FTOOLBOX.FRX:52DC PictRight1 = FTOOLBOX.FRX:53A6 PictRight2 = FTOOLBOX.FRX:5470 Top = 3570 End Begin PictureBox Picture2 Height = 300 Index = 0 Left = 840 Picture = FTOOLBOX.FRX:553A ScaleHeight = 270 ScaleWidth = 285 TabIndex = 1 Top = 3990 Visible = 0 'False Width = 312 End Begin PictureBox Picture1 Height = 315 Index = 0 Left = 390 Picture = FTOOLBOX.FRX:569A ScaleHeight = 285 ScaleWidth = 315 TabIndex = 0 Top = 3990 Visible = 0 'False Width = 345 End Begin Image Pin Height = 150 Index = 1 Left = 570 Picture = FTOOLBOX.FRX:57FA Top = 3750 Visible = 0 'False Width = 150 End Begin Image Pin Height = 150 Index = 0 Left = 390 Picture = FTOOLBOX.FRX:58C4 Top = 3750 Visible = 0 'False Width = 150 End Option Explicit Sub Form_Load () Combo1(0).AddItem "Arial" Combo1(0).AddItem "Courier" Combo1(1).AddItem "Normal" Combo1(1).AddItem "Bold" Combo1(2).AddItem "8.25" Combo1(2).AddItem "12" Combo1(3).AddItem "points" Combo1(3).AddItem "twips" Combo1(0).ListIndex = 0 Combo1(1).ListIndex = 0 Combo1(2).ListIndex = 0 Combo1(3).ListIndex = 0 End Sub Sub VSInForm1_ClickRButton (Index As Integer, Button As Integer) If Picture3.Height = 3270 Then Picture3.Height = 470 VSinform1(0).PictRight0 = Picture2(0) Else Picture3.Height = 3270 VSinform1(0).PictRight0 = Picture1(0) End If End Sub